CHARIN  EQU     $4600
NUL     EQU     0              no character
        
        ORG     $4C00

START   MOVE.B  #NUL,CHARIN
INPUT   BTST.B  #NUL,CHARIN    test receiver status
        BEQ     INPUT          poll until receiver has data
        
        MOVE.L  CHARIN,D0
        MOVE.B  #18,D1
        TRAP    #0       
        BRA     START
        
        END     START
*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~8~
